home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
How Would You Survive?
/
How Would You Survive (1995)(Grolier)[Mac-PC].iso
/
pc
/
vikingw.dir
/
01652_Script_Merchants
< prev
next >
Wrap
Text File
|
1995-09-12
|
2KB
|
76 lines
global gbeenclicked, gQuest
on VMarketRollovers
set gbeenclicked = 0
if (not(CheckClickedStatus(gQuest))) then
if rollover(6) then
Arrowcursor
repeat while rollover(6)
set the locH of sprite 14 to 479
set the locV of sprite 14 to 332
updatestage
end repeat
set the locH of sprite 14 to 999
updatestage
else
if rollover(7) then
VikingCursor
repeat while rollover(7)
if (the mousedown) then
set gbeenclicked = 1
else
-- the mouse is up
if gbeenclicked = 1 then
MerchantsBuying
end if
end if
end repeat
else
if rollover(41) then
HandCursor
else
if rollover(42) then
HandCursor
else
ArrowCursor
end if
end if
end if
end if
end if
RandomQuestion(gQuest)
end
on MerchantsBuying
ArrowCursor
set RunThruCount = 0
set gCast1 = the castNum of sprite 8
set gCast2 = the castNum of sprite 9
puppetsprite 8, true
puppetsprite 9, true
repeat while RunThruCount < 3 and (the MouseUp)
puppetsound "SV300300.AIF"
set count = 0
set the castNum of sprite 8 = gCast1 + 1
updatestage
wait .8
set the castNum of sprite 9 = gCast2 + 1
updatestage
wait .2
set the castNum of sprite 8 = gCast1
updatestage
wait .2
set the castNum of sprite 9 = gCast2
updatestage
wait .8
set RunThruCount = RunThruCount + 1
end repeat
set the castNum of sprite 8 = gCast1
set the castNum of sprite 9 = gCast2
updatestage
sound fadeOut 1, 3*60
puppetsprite 8, false
puppetsprite 9, false
set gbeenclicked = 0
end